home *** CD-ROM | disk | FTP | other *** search
/ Electronics Boutique Catalog 1996 Spring / 1996 Electronics Boutique Spring CD-ROM (USA).bin / eb / demos / ewjdemo.dir / 00020_Exit.ls < prev    next >
Encoding:
Text File  |  1995-12-11  |  556 b   |  29 lines
  1. on mouseDown
  2.   stopAllQT()
  3.   puppetSound("ExitB")
  4.   puppetSprite(14, 1)
  5.   set the castNum of sprite 14 to 40
  6.   updateStage()
  7.   startTimer()
  8.   repeat while the timer < 15
  9.     nothing()
  10.   end repeat
  11.   set the castNum of sprite 14 to 41
  12.   updateStage()
  13.   startTimer()
  14.   repeat while the timer < 15
  15.     nothing()
  16.   end repeat
  17.   set the castNum of sprite 14 to 40
  18.   updateStage()
  19.   startTimer()
  20.   repeat while the timer < 15
  21.     nothing()
  22.   end repeat
  23.   set the castNum of sprite 14 to 41
  24.   updateStage()
  25.   puppetSprite(14, 0)
  26.   open("mechpass 0")
  27.   quit()
  28. end
  29.